Option Strict Off
Option Explicit On
Imports Microsoft.VisualBasic.Compatibility

Module DataEnvironment_DataEnvironment10_Module
	Friend DataEnvironment10 As DataEnvironment_DataEnvironment10 = New DataEnvironment_DataEnvironment10()
End Module

Friend Class DataEnvironment_DataEnvironment10
	Inherits VB6.BaseDataEnvironment
	Public WithEvents Connection1 As ADODB.Connection
	Public WithEvents rsCommand1 As ADODB.Recordset
	Private m_Command1 As ADODB.Command
	Public Sub New()
		MyBase.New()
		Dim par As ADODB.Parameter
		
		
		Connection1 = New ADODB.Connection()
		Connection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\AutoLIS\db1.mdb;Persist Security Info=False;"
		m_Connections.Add(Connection1, "Connection1")
		m_Command1 = New ADODB.Command()
		rsCommand1 = New ADODB.Recordset()
		m_Command1.Name = "Command1"
		m_Command1.CommandText = "Select x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11" & Chr(13) & Chr(10)
		m_Command1.CommandType = ADODB.CommandTypeEnum.adCmdText
		par = m_Command1.CreateParameter
		par.Name = "x1"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x2"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x3"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x4"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x5"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x6"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x7"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x8"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x9"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x10"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		par = m_Command1.CreateParameter
		par.Name = "x11"
		par.Type = ADODB.DataTypeEnum.adVarWChar
		par.Size = 510
		par.Precision = 255
		par.Direction = ADODB.ParameterDirectionEnum.adParamInput
		m_Command1.Parameters.Append(par)
		rsCommand1.CursorLocation = ADODB.CursorLocationEnum.adUseClient
		rsCommand1.CursorType = ADODB.CursorTypeEnum.adOpenStatic
		rsCommand1.LockType = ADODB.LockTypeEnum.adLockReadOnly
		rsCommand1.Source = m_Command1
		m_Commands.Add(m_Command1, "Command1")
		m_Recordsets.Add(rsCommand1, "Command1")
	End Sub
	Public Sub Command1(ByVal x1 As String, ByVal x2 As String, ByVal x3 As String, ByVal x4 As String, ByVal x5 As String, ByVal x6 As String, ByVal x7 As String, ByVal x8 As String, ByVal x9 As String, ByVal x10 As String, ByVal x11 As String)
		If Connection1.State = ADODB.ObjectStateEnum.adStateClosed Then
			Connection1.Open()
		End If
		If rsCommand1.State = ADODB.ObjectStateEnum.adStateOpen Then
			rsCommand1.Close()
		End If
		m_Command1.ActiveConnection = Connection1
		m_Command1.Parameters.Item("x1").Value = x1
		m_Command1.Parameters.Item("x2").Value = x2
		m_Command1.Parameters.Item("x3").Value = x3
		m_Command1.Parameters.Item("x4").Value = x4
		m_Command1.Parameters.Item("x5").Value = x5
		m_Command1.Parameters.Item("x6").Value = x6
		m_Command1.Parameters.Item("x7").Value = x7
		m_Command1.Parameters.Item("x8").Value = x8
		m_Command1.Parameters.Item("x9").Value = x9
		m_Command1.Parameters.Item("x10").Value = x10
		m_Command1.Parameters.Item("x11").Value = x11
		rsCommand1.Open()
	End Sub
End Class